home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / TroyReturns.dxr / 00020_Graphics Handlers.ls < prev    next >
Encoding:
Text File  |  2002-01-31  |  4.4 KB  |  130 lines
  1. global updateTextFields
  2.  
  3. on initializeScreen
  4.   global terrainSO, screenDimensions, screenTileSize
  5.   maxX = screenDimensions[1]
  6.   maxY = screenDimensions[2]
  7.   wTile = 0
  8.   repeat with whichY = 1 to maxY
  9.     repeat with whichX = 1 to maxX
  10.       wSprite = terrainSO + wTile
  11.       puppetSprite(wSprite, 1)
  12.       set the member of sprite wSprite to "Iron Block"
  13.       set the loc of sprite wSprite to point((whichX - 1) * screenTileSize, (whichY - 1) * screenTileSize)
  14.       wTile = wTile + 1
  15.     end repeat
  16.   end repeat
  17. end
  18.  
  19. on repositionTerrain
  20.   global terrainSO, screenDimensions, screenTileSize, playerViewpoint, rumbleOffset
  21.   viewOff = point(playerViewpoint[1] mod screenTileSize, playerViewpoint[2] mod screenTileSize)
  22.   maxX = screenDimensions[1]
  23.   maxY = screenDimensions[2]
  24.   wTile = 0
  25.   repeat with whichY = 1 to maxY
  26.     repeat with whichX = 1 to maxX
  27.       wSprite = terrainSO + wTile
  28.       set the loc of sprite wSprite to point((whichX - 1) * screenTileSize, (whichY - 1) * screenTileSize) - viewOff + (screenTileSize / 2) + rumbleOffset
  29.       wTile = wTile + 1
  30.     end repeat
  31.   end repeat
  32. end
  33.  
  34. on checkSolidpoint pointLoc
  35.   global terrainData_Type, screenTileSize, playerViewpoint, terrainRef
  36.   tilePointSet = (pointLoc / screenTileSize) + 1
  37.   if (tilePointSet[2] >= 1) and (tilePointSet[2] <= count(terrainData_Type)) and (tilePointSet[1] >= 1) and (tilePointSet[1] <= count(terrainData_Type[1])) then
  38.     bType = terrainData_Type[tilePointSet[2]][tilePointSet[1]]
  39.   else
  40.     bType = 2
  41.   end if
  42.   return [terrainRef[bType][2], terrainRef[bType][5]]
  43. end
  44.  
  45. on punchBlock punchPoint
  46.   global terrainData_Type, screenTileSize, playerViewpoint, locksOpened, terrainRef, playerInventory
  47.   tilePointSet = (punchPoint / screenTileSize) + 1
  48.   if (tilePointSet[2] >= 1) and (tilePointSet[2] <= count(terrainData_Type)) and (tilePointSet[1] >= 1) and (tilePointSet[1] <= count(terrainData_Type[1])) then
  49.     bType = terrainData_Type[tilePointSet[2]][tilePointSet[1]]
  50.   else
  51.     bType = 1
  52.   end if
  53.   if (playerInventory[2] > 0) and (terrainRef[bType][5] = 5) then
  54.     openLockNOW = 1
  55.   else
  56.     openLockNOW = 0
  57.   end if
  58.   tType = terrainRef[bType][5]
  59.   if (tType = 1) or (tType = 6) or (tType = 7) or (tType = 8) or (tType = 9) or (tType = 12) or (openLockNOW = 1) then
  60.     terrainData_Type[tilePointSet[2]][tilePointSet[1]] = 1
  61.     rpoint = (tilePointSet * 50) - 25
  62.     addparticle(rpoint, 0, 1)
  63.     case terrainRef[bType][5] of
  64.       1:
  65.       5:
  66.         playerInventory[2] = playerInventory[2] - 1
  67.         if updateTextFields = 1 then
  68.           member("Key Display").text = string(playerInventory[2])
  69.         end if
  70.         locksOpened = locksOpened + 1
  71.       6:
  72.         repeat with wCoin = 1 to 1
  73.           addPickup(1, 1, rpoint, point(random(7) - 4, -6 - random(12)))
  74.         end repeat
  75.       7:
  76.         repeat with wCoin = 1 to 1
  77.           addPickup(1, 2, rpoint, point(random(7) - 4, -6 - random(12)))
  78.         end repeat
  79.       8:
  80.         repeat with wCoin = 1 to 3
  81.         end repeat
  82.       9:
  83.         repeat with wCoin = 1 to 1
  84.           addPickup(1, 3, rpoint, point(0, 0))
  85.         end repeat
  86.       12:
  87.         addPickup(1, 2, rpoint, point(0, 0))
  88.     end case
  89.     addScore(5)
  90.   end if
  91. end
  92.  
  93. on redrawTerrainPics
  94.   global terrainSO, screenDimensions, screenTileSize, terrainData_Type, playerViewpoint, tilePointSet, animNumber, terrainRef
  95.   tilePointSet = playerViewpoint / screenTileSize
  96.   maxX = screenDimensions[1]
  97.   maxY = screenDimensions[2]
  98.   wTile = 0
  99.   repeat with whichY = 1 to maxY
  100.     repeat with whichX = 1 to maxX
  101.       wSprite = terrainSO + wTile
  102.       bType = terrainData_Type[whichY + tilePointSet[2]][whichX + tilePointSet[1]]
  103.       blockString = terrainRef[bType]
  104.       if count(blockString[1]) = 1 then
  105.         set the member of sprite wSprite to blockString[1][1]
  106.       else
  107.         frameNum = (animNumber mod count(blockString[1])) + 1
  108.         set the member of sprite wSprite to blockString[1][frameNum]
  109.       end if
  110.       case blockString[3] of
  111.         0:
  112.           sprite(wSprite).visible = 0
  113.         1:
  114.           sprite(wSprite).locZ = 199
  115.           set the ink of sprite wSprite to 36
  116.           sprite(wSprite).visible = 1
  117.         2:
  118.           sprite(wSprite).locZ = 201
  119.           set the ink of sprite wSprite to 36
  120.           sprite(wSprite).visible = 1
  121.         3:
  122.           sprite(wSprite).locZ = 201
  123.           set the ink of sprite wSprite to 33
  124.           sprite(wSprite).visible = 1
  125.       end case
  126.       wTile = wTile + 1
  127.     end repeat
  128.   end repeat
  129. end
  130.